decoy.pl perl script Search Results